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DECLARATION OF DAVID A. SELBY UNDER 37 C.F.R. §1.131 

Sir: 

I, David A. Selby, hereby declare as follows: 

1 . I am the inventor of the subj ect matter claimed in the above-identified 
patent application. 

2. I have been informed that U.S. Patent Application Publication No. 2005/0010472 
to Quatse et al. ("Quatse") has been cited as prior art by the United States Patent and Trademark 
Office with respect to the above-identified patent application. I also have been informed that the 
filing date of Quatse is July 8, 2003. 

3. This declaration is to establish conception and reduction to practice of the invention 
claimed in claims 1-24 of the above-identified application in the United States prior to July 8, 
2003. 
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4. Prior to July 8, 2003, 1 conceived of and developed (i.e., reduced to practice) a 
working software program that met all of the limitations of claims 1-24 of my patent application, 
as more particularly detailed below. 

5. Exhibit A attached hereto is an Invention Disclosure, prepared by me concerning the 
development of the invention disclosed and claimed in the above-identified patent application. 
The date appearing on the original of tliis document has been redacted from the copy attached 
hereto. However, the date is prior to July 8, 2003 and accurately reflects a date on which the 
document existed. 

6. Exhibit B attached hereto is a print-out of computer program code for the computer 
program that is the basis of the present invention ("Vanquish.cpp"). Work on this program 
began on December 4, 2001 and was completed on or before December 3 1. , 2002, which is prior 
to the July 8, 2003 filing date of Quatse. 

7. The correlation between the steps of independent claim 1 and the code in Exhibit B is 
as follows: 

• "perforating a first sort on all unselected events to form a pending event list, so that the 
events are ordered sequentially by their values, with the highest valued event being at the 
top of the pending event list" data is pre-sorted in RDBMS engine and pulled into the 
computation space in the subroutine calls lines 264-295. 

• "selecting the highest valued unselected event upon the occurrence of a predetermined 
trigger" — this is performed in the subroutine specified in line 356 getnextval 

• "recomputing the values of each event after the selection of the highest valued 
unselected event" — this is performed in lines 419-436 
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• "moving the highest valued unselecteci event, after performance of the recomputing step, 
to the top of the pending event list without performing a second sort of the entire 
pending event list" -- this is performed in the subroutine line 356 getnextval by lazy 
evaluation and is completed in line 447-484 incnextval subroutine 



8, I hereby declare that all statements made herein of my own knowledge are true and 
that all statements made on information and belief are believed to be true; and further that these 
statements were made with the knowledge that willful false statements and the like so made are 
punishable by fine or imprisonment or both, under Section 1001 of Title 18 of the United States 
Code, and that such willful statements may jeopardize the validity of the application or any 
patent issued thereon. 
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Disclosure: A method for optimisation of marketing 
resources 

Introduction 

This disclosure describes a method for solving programmatically the business issue of 
optimising marketing resources. That is given a set of constraints of marketing "materials, 
customers, budgets etc. An optimal stream of communication is selected which affords the 
"best" return on investment over time. This over approach has been disclosed in Docket 
Number P23,426 USA SYSTEM AND METHOD FOR INCREASING THE 
EFFECTIVENESS OF CUSTOMER CONTACT STRATEGIES 

This disclosure makes further ciaims, by describing a computer-based method, which optimal 
solves the problem described in the above, by utilising a novel extension to a well-known 
operational technique called a greedy heuristic. (See www.nist.com for formal definitions) 

The method 

The objective of the process is to develop a per customer contact stream, that is from the total 
list of marketing events available to an individual we wish to select a subset which maximises 
profit for the minimal cost, taking into account a set of business constraints. We propose this 
can be achieved in the following way: 
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This approach adopts a well know technique, a greedy heuristic. Although, due to the ■ 
circumstances involved in the data it is possible to omit the intermediate sort between each 
application of the saturation, Saturation in nearly all applications reduces the target scores; • 
the knowledge of this allows us to make a simple comparison of the next value to be selected 
with the subsequent. If this test fails then a sort is required, if this test passes then no sort is 
required. Omitting this continual sort significantly increases the performance of the technique 
and allows near real-time application of the approach. 



Our Claims 

We Claim an approach which: 

1. Will solve efficiently enough to enable the solution to be applied to each individual, 
and therefore improve over the micro groups discussed in the referenced application. 

2. By sorting only when required, the algorithm becomes highly scalable. 

3. The algorithm achieves a solution that alleviates the need for linear programming. 

4. The algorithm can be applied in a real-time application, to recompute the best contact 
strategy each time the underlying data is changed by customer interaction. 
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1 . Due to the way the problem was being mathematically solved using a linear program 
in Bibelnieks it was necessary to solve for subsets of customers only on an irregular 
basis. As it would take large amounts of batch time to solve for a reasonably large 
portfolio of customers. 

a. The other implication of the Bibelnieks method was that you budget on a per 
Micro asset group basis. Which can be construed to be a very unrobust 
approach. 

The improvement ! have been able to make is to using a greedy Heuristic approach I have 
been able to solve for each individual customer, and therefore I can budget to an individual 
customer. Although I would argue the approach I use deviates from the written work enough 
to be unique, see (2) 

2. The GH on its own would not necessarily give you a sufficiently large enough of a 
kick to allow to solve for an individual, but on examing the typical data used for this 
type of problem I have discovered a further optimisation. 

3. i think Bibelnieks, please verify in case I missed talks about solving the problem once 
and using for a iongish time. My appoach resolves the problem once per day for a 
constrained time window, say 30-90 days. So it is continually upto date. If you 
consider before Bibelnieks you would (and most still do) be in a six weeks cycle from 
generating a list of candidates and the mail dropping. Let alone planning customers, 
which i think by at least implication would be a long term planning activity. 

4. The reason it is desirable to solve it once per day is that you need to be able to 
dynamically change the customers contact stream as soon as possible. Say it 
panned out the stream ended up hitting you with campaigns that sold you one 
particular item, say a winter coat. Well if I do it the Bibelnieks way and run my plan 
for the next few months, then one week in you buy a winter coat, every campaign you 
get after that point will be a waste of my marketing budget. Worse it will probably 
lead you to believe that I'm also stupid because you know we both know that you 
have a winter coat. So if you can update the plan the day something happens it 
becomes much more relevant for all subsequent contacts (campaigns). And 
improves the quality of the ROi from the stream of campaigns. 

The GH flow is as follows: 

From Bibelnieks you can see an individuals record would consist of a vector of scores for their 
propensity to respond, with some for of canalization and saturation applied, by a set of 
matrices. (See Bibelnieks figs 7-11) So you get, each being scored vertically. Normally a set 
of these would be input to the linear program pi us. the constraints. 

Cannibalization and Saturation are taught by Bibelnieks in Figures 6-11 we would use the 
same or similar methodology in this approach. Now we deviate, Bibelnieks groups these 
customers into Micro segments based on some financial return curve for the group. We 
continue to work at an individual level, and also we operate a per customer budget based on 
the historical returns, are the ratio of marketing spend vs the amount of net profit for that 
customer. 



Customer No C1 

123456 0.2 

123457 0.1 



C2 C3 C4 
0.3 0.565 0.9 
0.8 0.63 0.5 



C5 C6 C7 
0.32.0.53 0.56 
0.21 0.52 0.7 



(a) Create a pivot table from the above record, which looks like this: 
The important thing to note is the chronological order of the campaigns has not been 
destroyed. Campaign 1 occurs at T+0 and Campaign 2 occurs at T+1 and Campaign 3 occurs 
at T+2 etc etc. 



Customer No Campaign Expected 
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0.9 


123456 


5 


0.32 


123456 


6 
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0.7 



(b) Sort by expected Gain. (The implication of this step is that you are optimizing the list of 
contacts globally. (!e: Independent of any one individual. Any event that creates the best 
expected gain will be top of the list) 

Here a Radix sort is applied, The result is as follows: 
Customer No Campaign 
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Expected 
Gain 



123456 
123457 
123457 
123457 
123456 
123456 
123456 
123457 
123457 
123456 
" 123456 
123457 
123456 
123457 
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0.9 

0.8 
0.7 
0.63 
0,565 
0.56 
0.53' 
0.52 
0.5 
0.32 
0.3 
0.2t 
0.2 
0.1 
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We entered the optimization procedure with some budgets (or otherwise known as 
constraints) the table fig 3 above shows for this run the proposed constraints. Number of 
pieces are decided typically by print run cut offs, that is the printing trade price their work 
based on economic cut offs, which factor the size of the printing equipment, cost of setup etc. 
Basically this normally means the more you print the cheaper it gets. In a call centre 
operation, these cut offs exist but are predicated by the number of operators capable of 
making outbound email calls, or having the right skill to introduce that type of campaign. (You 
may have 100 operators but only 10 are specialized in selling mortgage products for instance) 
For each you have a minimum and a maximum (Upper and lower bound) The cost is the 
monetary amount it takes to execute each campaign, this yield a maximum budget Pieces 
times cost. If you add together all of these budget values, then you have the maximum 
permitted spend for this run of the application. Typically you would want to stay under this 



value, the objective is to generate the most return by spending the least. Simple example the 
goal is to make 100 dollars by spending the least, clearly if I can spend 30 cents and make a 
1 00 its better than spending 50 dollars and making 1 00. Sure I'm stating the obvious but it's 
the underlying fundamental in this process. The global budget is set to between (sum min 
budgets and sum max budgets) This is also helpful because in business the typical thing that 
happens is that times get tough so every department needs to take say a 1 0% cut, to meet 
targets. It's easy to just specify 10% less overall in this process. 

(c) Now If the global budget met, we stop. As we allocate a campaign to an individual 
we sum the number the amount spent. This gives us a comparison number. 

(d) We may stop if there nothing that will yield a predicted profit. In the column Expected 
gain, fig 2 (the arrow moves downward but points to the next entry to consider, if this top entry 
is negative as we work down the list' and continually apply saturation, ie: Once we've done 
something to an individual subsequent events become less appealing, so we reduce the 
expected gains. 

(e) if we've got nothing left in the pool to allocate, we stop. Max pieces are hit across all 
events, (fig 3) 

(f) Select top record and allocate that customer to that Campaign, before allocating, test if- 
campaign has met budgetary constraint (total pieces or cost budget, you can see they are 
interchangable) This is done by maintaining counters for each, which are incremented after a 
successful allocation, also test to see if he's not exceeded this individual's budget. Maintain a 
counter per individual for their budget If either is true, then simply discard the record and 
past to the next, by moving the arrow down one entry in fig 2, 

(g) Delete that record from the global list. 

(h) Locate that customer in the remaining records and apply saturation to all other campaign 
records that he has remaining unallocated. This achieved by using a set of indexes to the 
original data (Fig 1), so although for illustrative purposes Fig 2 has b.een re-arranged in the 
actual implementation we would have a vector of indexes. These are sorted and shuffled 
during the process. See Fig 4. Let's do the first completely. Sort index says take the fourth 
record as globally the best expected return. The fourth record is Campaign 4 for customer 
123456. We set the campaign id to negative, to show it's been used. In Fig 4. We 
decrement the global count for campaign 4, and we deduct 1 .03 from the global budget for 
customer (See fig 3) Now we apply saturation, which degrades the expected gain for 
campaigns 1-3 and 5-7. As we know this is the fourth, we step back to the first and iterate 
over each campaigns expected gain from 1-7 excluding any negative campaign id's. We 
have now applied the saturative effect of 4 vs 1 , 4 vs 2, 4 vs 3, 4 vs 5, etc. Saturative effect 
is as per Bibelnieks Fig 1 1 . and described in detail, we adopt the same approach for 
calculating this component. Due to this the expected, gain will be reduced for this customer 



for ail other campaigns proceeding and following the allocated campaign. 
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Fig 4 

(i) Now in a Standard GH you would totally resort the table. We don't. (That's compute 
intensive, think about it if you have 1m customers over 30 events, that's a 30m record sort, 
just how it expands...) It turns out that by the nature of saturation, you will suppress all the 
records remaining by some value, ie: If I give you this campaign it always makes it iess likely 
that things in a near term time horizon will also be given. And we are solving on a say 90 day 
window, because we can do it that fast. 

(j) Ok I've messed my flow a little, but bear with me, I should go to (c) but what I want to do is 
check the next event is greater that one after the event to be picked, if it isn't i swap the 
entries, and keep doing that until it is, the technique is similar to that employed in a bubble 
sort. (Air bubbles rising) Once you know the next is the best you simply continue at (c) 
Remember this works because you wili only make all other events worse, lower value due to 
the nature of canbalisation/saturlsation Look at Fig 5 this is pretty typical, the application of 
saturation has adjusted some items lower in the list but have had no effect on the next item to 
choose. (So traditionally you would sort blindly, in this algorithm you take a lazy evaluation 
approach) This wastes a significant number of computer cycles for no reason. 
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Fig 5 



EXHIBIT B 



1 // 

2 // Vanquish optimiser Started: 4 Dec 2001 

3 // Author: David Selby 

4 // 

5 #include <stdio.h> 

6 #include <stdlib.h> 

7 #include <stdarg.h> 

8 #include <time.h> 

9 #include <malloc.h> 

10 #inciude <signal.h> 

1 1 #include <iostream.h> 

12 #inc!ude <string.h> 

13 #include <sys/stat.h> 

14 #include "parms.h" 

15 #include "fileobj.h" 

16 #include "sidefile.h" 

17 #include "campaigns. h" 

18 #include "saturation. h" 

19 #include "xmldoc.h" 
20 

21 #ifndefAIX 

22 #define STDIN_FILENO 0 

23 #include <io.h> 

24 #include <direct.h> 

25 #else 

26 #define Sleep sleep 

27 #endif 
28 

29 #ifdef DBVER 

30 include "DBobj.h" 

31 #endif 
32 

33 #ifndefTRUE 

34 #defineTRUE 1 

35 #define FALSE 0 

36 #endif 

37 



38 #Sfdef WIN32 

39 typedef unsigned _int64 DWORD64; 

40 typedef int64 [NT64; 

41 #else 

42 typedef unsigned long long DWORD64; 

43 typedef long long INT64; 

44 #endif 
45 

46 char *make_tname(char *tempdir); 

47 static void sig_end(int signo); 
48 

49 // Various global parameters set by args to mainQ 

50 #ifndefDOS 

51 int in_status = 1000; 

52 #else 

53 int in_status = 100; 

54 #endif 

55 int out_status = 0; 

56 int hush = TRUE; 

57 int maxj-eturn = 0; 

58 int logfile = 0; 

59 int db_connect = TRUE; 

60 int status_mark = FALSE; 

61 char version[] = {"Version 1 .0 \0Compile date here"}; 

62 char*modis; 

63 parms *xmlfile; 
64 

65 int main(int argc,char **argv) 

66 { 

67 char foney[]={'-7?'}; 

68 int i,j,rtime,assign_count; 

69 char *cp; 

70 struct tm when; 

71 time_t now,starttime,endtime; 

72 char timestamp[15]; 

73 int observations = 10000; 

74 double totaLspent = 0; 
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75 unsigned int totaLrecout = 0; 
76 

77 #if AIX 

78 if (!isatty(STDOUT_FILENO)) in^status = 0; // If piped don't do status msgs 

79 #endif 
80 

81 #ifdef TIMEBOMB 

82 int timeBomb(void); 
83 

84 if (!timeBomb()) { cout « "ABEND: Module expired." « end! « endl; 

85 cout « "Please contact David Selby" « endl « "SELBY at WINVMB" « 

86 "David_Selby@uk.ibm.com" « endl « "Center for Business Optimization" « endl; 

87 cout « "Hursley Park" « endl « "Winchester" « endl « "Hampshire S021 2JN" « endl 

88 « "England" « endl; 

89 exit(-42); 

90 } 

91 #endif 
92 

93 #ifdef MACHONLY 

94 int mach(void); 

95 if (ImachQ) { cout « "ABEND: Machine not licenced to run Vanquish Optimiser" « endl « endl; 

96 exit(-42); 

97 } 

98 #endif 
99 

100 modis = argv[0]; 

101 strcat( version , DATE ) ; 

102 

103 // Trap various signals 

104 signal(SIGINT, sig_end); 

105 signal(SIGTERM, sig_end); 

106 #ifdefAIX 

107 signal(SIGQUIT, sig.end); 

108 signal(SIGIOT, sig_end); 

109 signal(SIGBUS, sig.end); 

110 signal(SIGSEGV, sig_end); 

111 #ifdef SIGDANGER 
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1 12 signal(SIGDANGER,sig_end); 

113 #endif 

114 #endif 
115 

116 if (argc == 1) { /* Use an underhanded trick to force the help msg 7 

1 17 ++argc; argv[1] = foney; 

118 } 

119 // Read the command line, Deal with quiet parameter, number of records for internal sort 

120 while(-argc > 0) /*&& (*++argv)[0] == *-')7 

121 {++argv; 

122 while(*argv[0] == ' ') (*argv)++; 

123 if (*argv[0] =='-') 

124 {++argv[0]; 

125 if (*argv[0] ==■?') 

126 { /* Help messages 7 

127 cout « "Vanquish Optimizer by David Selby" « endl; 

128 cout « "Build Date: " « DATE « endl; 

129 cout « "Startup Parameters as follows:" « endl; 

130 #ifdefDBVER 

131 cout « "-noconn Disable connection to Database" « endl; 

132 #endif 

133 cout « "-quiet Disable all output until first input" « endl; 

134 cout « "xxxx where xxxx is a .xml filename" « endl; 

135 exit(0); 

136 } 

137 /* Quiet switch 7 

138 else if (0 == strncmp(argv[0],"quiet",5)) 

139 { hush = TRUE; 

140 // More parms in this token ? 

141 if (strlen(argv[0]) > 5) { (*argv) += 5; 

142 -argv; 

143 ++argc; 

144 } 

145 } 

146 else if (0 == strncmp(argv[0],"noconn",6)) 

147 { db_connect = FALSE; 

148 // More parms in this token ? 
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149 if (strlen(argv[0]) > 6) { (*argv) += 6; 

150 -argv; 

151 ++argc; 

152 } 

153 } 

154 else if (0 == strncmp(argv[0],' , status M l 6)) 

155 { status„mark = TRUE; 

156 in_status = 1000; 

157 // More parms in this token ? 

158 if (strlen(argv[0]) > 6) { (*argv) += 6; 

159 -~argv; 

160 ++argc; 

161 } 

162 } 

163 else if (0 == strncmp(argv[0],"instat M 1 6) && argc) 

164 {if (strlen(arg v[0]) > 6) { (*argv) += 6; 

165 cp = *argv; 

166 } 

1 67 else { cp = *++argv; 

168 -argc; 

169 } 

170 i = strtol(cp,(char**)&cp,10); 

171 if (*cp == 'm' || *cp == 'M') i «= 20; 

172 if fcp == 'k' || *cp == 'K') i «= 10; . 

173 if (i >= 0) in_status = i; 

174 // More parms in this token ? 

175 if (strlen(cp) > 3) { (*argv) = cp; 

176 -argv; 

177 ++argc; 

178 } 

179 } 

180 else if (0 == strncmpCargv^/'outstat",?) && argc) 

181 {if (strlen(argv[0]) > 7) { (*argv) += 7; 

182 cp = *argv; 

183 } 

184 else { cp = *++argv; 

185 -argc; 
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186 } 

187 i = strto!(cp,(char**)&cp,10); 

188 if (*cp == 'm' || *cp == 'M') i «= 20; 

189 if (*cp == 'k" || *cp == 'K') i «= 1 0; 

190 if (i >= 0) out_status = i; 

191 // More parms in this token ? 

1 92 if (strlen(cp) > 3) { (*argv) = cp; 

193 -argv; 

194 ++argc; 

195 } 

196 } 

197 else if (0 == stmcmp(argv[0],"execdir",7) && argc) 

1 98 { if (strlen(argv[0]) > 7) { (*argv) += 7; 

199 cp = *argv; 

200 } 

201 else { cp = *++argv; 

202 -argc; 

203 } 

204 if (chdir(cp)) 

205 cerr « "unable to change to " « cp « " directory, continuing in current" « endi 

206 else cerr « "changing to " « cp « endi; 

207 } 

208 } // Is parm 

209 else { while(*argv[0] == ' ') ++argv[0]; /* Elide blanks */ 

210 xmlfile = new parms(argv[0],&max_retum); 

211 if (max_return) 

212 {if (max_return) printf("Can not find %s",argv[0]); 

213 delete xmlfile; 

214 return -2; 

215 } 
216 

217 } 

218 }/* end while args */ 
219 

220 time( &now ); 

22 1 when = *localtime( &now ); 



222 
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223 if (Ihush) 

224 { cout « "Vanquish Optimizer" « endl « "By David Selby" « endl « "IBM Center for Business 

225 Optimization" « endl « "Version 1 .4" « endl « "Patents pending" « endl; 



228 } 
229 

230 /* Timestamp is used as a unique run identifier 7 
231 

232 sprintf(timestamp/'%d%02d%0 

233 ay,when.tm_hour,when.tm_min,when.tm_sec); 
234 

235 // 

236 // 1) Open campaigns/events file, need the cost per campaign read into core 

237 // 

238 dataobject *campaign_data = NULL; 

239 campaigns *campaign_file = NULL; 

240 #if DBVER 

241 if (xmlfile->campaign_db_name) campaign_data = new DBobj(xmlfile->campaign_db_name, xmlfile- 

242 ^ampaign^db^userid^mlfile^campaign^db^passwd^mlfile^campaign^dbjable, xmlfile- 

243 >campaign„db_where,NULL,xmlfile->campaignJields,1,xmlfile->campaign_defn); 
244 

245 else 

246 #endif 

247 if (xm!file->campaign„dataFile) campaign_data = new fileobj(xmlfile->campaign„dataFile J xmlfile- 

248 >campaign_fields,1 ,xmlfile->campaign_defn); 

249 if (campaign_data) { if (campaign__data->prepare() == 0) 

250 { // Message file failure 

25 1 // printf(ERR_CAMPAIGN_FILE,xmlfile->campaign^dataFile); 

252 exit(-12); 

253 } 

254 campaignjile = new campaigns(campaign_data); 

255 delete campaign__data; 



226 



cout « "Build Date: " « DATE « endl; 

cout « "Start run at " « asctime( &when ) « endl; 



227 



256 
257 
258 
259 



else { // Message no campaign data 
exit(-12); 
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260 

261 dataobject *customer_data = NULL; 

262 sidefile *sidefile__cntrl = NULL; 

263 int ret; 

264 // 2) Generate sidefile from customer file, Calculate costs etc. Note zeros and negs 

265 // Do initial bucket pass first time to speed up 

266 // 

267 // Important!!! The code assumes the customer file contains the data pre sorted by customer 

268 number and then within event id. 

269 // Event ids must be assigned in chronological order. Larger the event id, larger the drop 

270 date of the event 

271 // 

272 #if DBVER 

273 if (xmlfile->datafile_db_name) customer_data = new DBobj(xmlfile->datafile_db_name J xmlfile- 

274 >datafile_db_userid,xmlfiie->datafile_db_passwd,xmlfile->datafile_dbjable, xmlfile- 

275 >datafile_dbjwhere,xmlfile->dataf^ 

276 else 

277 #endif 

278 if (xmlfile->datafile_dataFile) customer_data = new fiIeobj(xmlfile->datafi!e_dataFile,xmlfile- 

279 >datafilejields,1 ,xmlfile->datafile_defn); 
280 

281 if (customerjdata) { if (customer_data->prepare() == 0) 

282 { // Message file failure 

283 exit(-14); 

284 } 

285 try { sidefile_cntrl = new sidefile(xmlfile->workpath,&ret,customer_data,campaign_file); 

286 } 

287 catch(int ret) 

288 { cerr « "Internal Sidefile creation failed return code is " « ret « endl; 

289 exit(-144); 

290 } 

291 delete customer^data; 

292 } 

293 else { // Message no customer data 

294 exit(-14); 

295 } 
296 
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297 // 3) Generate the sort pointer vector (paged) Burn temporary array (3 passes) 

298 // 4) Read the saturation matrix into core. 

299 dataobject *sat_data = NULL; 

300 saturation *sat_file = NULL; 

301 #if DBVER 

302 if (xmlfile->sat_db_name) satdata = new DBobj(xmlfile->sat_db_name, xmlfile->sat_db_userid,xmlfile- 

303 >sat_db_passwd,xmlfile->sat„db_table, xmlfile^saLdb.where^ULL^mlfile^satJields.l ,xmlfile- 

304 >sat_defn); 

305 else 

306 #endif 

307 if (xmIfile->sat_dataFile) sat__data = new fileobj(xm!file->saLdataFile,xmIfile->satJields } 1 ,xmlfile- 

308 >sat_defn); 
309 

310 if (saLdata) { if (sat_data->prepare() == 0) 

311 { // Message file to open saturation file 

312 exit(-15); 

313 } 

314 satjile = new saturation(saLdata,campaignJile->number,campaignJile->camp_nos); 

315 delete sat_data; 

316 } 

317 else { // Message no saturation data 

318 exit(-15); 

319 ~ } 
320 

321 // 

322 // Need to handle overrides late otherwise the customer data gets messed up. 

323 // (You end up zapping the list of numbers, before they used to make the indexes) 

324 campaignJile->do_overrides(xmlfile->campaign__override); 
325 

326 xmlfile->changestate(1); // Project in pending state 

327 // 5) Start full process 

328 // satjile->dump(); // Dump saturation matrix for debugging purposes 

329 // sidefile_cntrl->debug(); // Dump sidefile for debugging purposes. 

330 // FILE *fgraph = fopenC'fgraph.csv7'w+") ; // Debug 

331 observations = sidefile_cntrl->no_records() / 100; // 100 bins 

332 if (Ihush) cout « "Commencing optimization process" « endl; 

333 int obs = 0; 
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334 float spent_graph[100],gainj/[100]; 

335 gain_y[0] = -1; 
336 

337 INT64 balance 1 total > IasLbalanee,balance_pre_min,balance_post_min; 

338 DWORD64 gain = 0,gain_net = 0,last_gain = 0; 
339 

340 if (xmlfile->budget_type == 'n') balance = (lNT64)(campaign_file->min_budget + 

341 (DWORD64)((double)(INT64)campaign_file->min_budget * ((double)(INT64)xmlfile- 

342 >budget/(double)100))); // min +/-x% 

343 else if (xmlfile~>budget_type == 'x') balance = (INT64)(campaignJile->max_budget - 

344 (DWORD64)((double)(INT64)campaignJile»>max_budget* ((double)(lNT64)xmlfile- 

345 >budget/(double)1 00))); // max +/■*% 

346 else balance = (INT64)(1 00 * xmlfile->budget); 
347 

348 balance_pre_min = campaignjile->min_budget; // Spend is allocated from two discrete buckets to 

349 handle minima constraint 

350 balance_postjnin = balance - balance_pre_min; 

351 starttime = time(NULL); 
352 

353 total = balance; 

354 dataobject *out_data = NULL; 

355 if (balance >= (INT64)campaign_file->min_budget) 

356 { while(balance > 0 && sidefile_cntrl->getnextval()) // Fetch next best thing to do 

357 { int campno = sidefile_cntrl->catno(); 

358 int campnox = campno-1 ; 

359 unsigned int cost = campaign_file->costs[campnox]; 

360 unsigned int fcost = 0; 

361 // Handle excluded campaigns 

362 if (campaign Jile->camp_nos[campnox] == -1) campno = -1; 

363 // Handle any fixed costs, first allocation forces one time cost 

364 if (campno > 0 && campaign Jile->pieces[campnox] == 0) fcost = campaign Jile- 

365 >fcosts[campnox]; 

366 // 

367 // Handle minimum limit constraint, check which money bucket and ensure has funds to 

368 support allocation 

369 // Otherwise forefeit the allocation 

370 // 
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371 if (campno > 0 && (!((campaign_file->minJimit[campnox] && (balance jaostjrnin-cost) >= 0) || 

372 (campaign Jile->minJimit[campnox] == '\0' && (balance_pre_min-cost+fcost) >= 

373 0)))) 

374 campno = -1; 

375 //debug: */ . 

376 fprintf(stderr/ , campno=%d,baIance=% 

377 balance, sidefile_cntrl->get_sat_value(),sidefile_cntrl->Count,sidefile„cntri->next_choose,sidefile_cntrl- 

378 >current); 

379 // Start with a sanity check to ensure not selecting a selected campaign 

380 // Does this exceed the max pieces for this campaign? 

381 if (campno > 0 && (campaign Jile->maxjDieces[campnox] > campaign_file->pieces[campnox])) 

382 {// 

383 // Now handle costs 

384 // 

385 // If this is the first allocation then get any fix costs data 
3 86 // Check to see if this will exceed the global spend 

3 87 // if yes then pass an.d try for something cheaper 

388 unsigned int tcost = cost; 

389 if (campaign_file->pieces[campnox] == 0) tcost = fcost+ cost; // First iteration 

390 requires inclusion of fixed cost 
391 

392 if ((balance-tcost) >= 0 && 

393 // Has the individual reached max budget? 

. 394 (sidefile_cntrl->getcustbudget() — -1 || // -1 = no individual budget 

395 (sidefile„cntrl->getcustbudget()-cost) > 0)) // Don't count fixed costs against the individual 

396 { // Allocate campaign to individual 

397 DWORD64g; 

398 sidefile_cntrl->allocated_catno(); // Set as allocated 

399 balance -= tcost; // Reduce the global balance for this event, incl fixed 

400 see above 

401 g = (DWORD64)floor(0.5 + 100 * sidefile„cntrl->geLsaLvalue()); // 

402 Incorporate gain (Move decimal pt & round) 

403 gain += g; 

404 g -= tcost; 

405 gain_net += (DWORD64)g; // less costs incl fixed cost 

406 campaign_file->gain[campnox] += (unsigned int)g; // event gain is also incremented 

407 ++campaignJiIe->pieces[campnox]; // Increase number used 
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408 if (Icampaign Jile->minJimit[campnox]) // Have we reached the min constraint? 

409 { balance_pre_min -= cost + fcost; 

410 if (campaignJile->min_pieces[campnox] == campaign_file->pieces[campnox]) 

41 1 campaign_file->min_limit[campnox] = M'; 

412 } 

413 else balance_post_min -= cost; 
414 

415 // If running with individual budget then reduce also 

416 if (sidefile„cntrl->getcustbudget() != -1) sidefile_cntrl->set_custbudget((float)cost/100); 
417 

418 // 

419 // Now saturate across all campaigns 

420 // sidefile has not changed order so just need to back up 

421 sidefile_cntrl->selectjirst(); 

422 assign_count = 0; 

423 for(int i = 0; i < campaign_file->number; 

424 { if (sidefile__cntrl->catno() > 0 && sidefile_cntrl->get_saLvalue() > 0) // If its already 

425 negative then don't waste mips 

426' { float unsat = sidefile_cntrl->geLunsaLvalue() / 

427 ((float)campaign Jile->costs[i]/1 00); // Correct to gains ratio 

428 // sidefile_cntrI->seLsat_value(sidefile_cntrl- 

429 >get_sat_value() - ((float)xmlfile->satJever * (sidefile_cntrl->getjjnsat_valueQ * satjile- 

430 >satmat[i][campnox] + satJile->satmat[campnox][i] * sidefile_cntrl->get_unsat_value0))); 

43 1 sidefile_cntrl->seLsat_value(sidefile_cntrl~>get_sat_value() 

432 - ((float)xmlfiie->sat_lever * (unsat * sat_file->satmat[i][campnox] + satJile->satmat[campnox][i] * unsat))); 

433 } 

434 if (sidefile_cntrl->catno() < 0) ++assign_count; 

435 if (sidefile_cntrl->getnext_srt()) break; 

436 } 

437 // If we have hit the limit of events for this customer then saturate all 

438 remaining available events 

439 // Just force it out with a large loss 

440 if (xmlfile->maxoffersper && xmlfiIe->maxoffersper == assign_count) 

441 { sidefile_cntrl->select_first(); 

442 for(int i = 0; i < campaignjile->number; i++) if (sidefile_cntrl->catno() > 

443 0 && sidefile_cntrl->get_sat_value() > 0) sidefile_cntrl->set_sat_value((float)-999999999); 

444 } 
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445 } 

446 } 

447 sidefile_cntri~>incnextval(); // Move to next entry 

448 // Output a diagnostic to help understand progress 

449 if (injstatus && ((sidefile_cntrl->getnextone() % in_status) == 0)) 

450 { /*char msg[50]; 

451 sprintf(msg,"Reading record %ld ",sidefile_cntrl->getnextone()); 

452 cout«msg; 

453 int i = strlen(msg); 

454 while(i-) cout « "\b"; 

455 cout « flush; 

456 */ 

457 endtime - time(NULL); 

458 rtime = (int)(double)ceil((doubie)(sidefile_cntrl->no_records()-sidefile__cntrl- 

459 >getnextone()) * (endtime-starttime)/((sidefile_cntrl->getnextone() == 0)?1 :sidefile_cntrl->getnextone())); 

460 tm *t = gmtime((time_t *)&rtime); 

46 1 int ts = t->tm_sec; 

462 if (t->tm_hour == 0 && t->tm_min == 0 && ts == 0) ts = 1 ; 
463 

464 cout « "#" « sidefile_cntrl->getnextone() « « sidefile_cntrl->no_recordsO. 

465 « « t->tm_hour « ':' « t->tm_min « ':' « ts « endl « flush; 

466 cout.flushQ; 

467 cout.flush(); 

468 Sieep(1);. 

469 } 

470 // Generate a file for the gains graph 

47 1 if (0 == -observations) 

472 { observations = sidefiJe_cntrl->nojrecords() / 1 00; // 1 00 bins 

473 if (last_gain != 0 && lasLgain != gain_net) 

474 { float gr = (fioat)((double)(INT64)(gain_net-last_gain)/(double)(INT64)((total-balance)- 

475 lasLbalance)); 

476 spenLgraph[obs] = (float)(totaI-balance); 

477 gain_y[obs] = gr; 

478 gain_y[++obs] = -1; // Use -1 as fence to mark end 

479 //fprintf(fgraph, ,, %f,%f\n n > total-balance,gr); 

480 } 

481 lasLbalance = total-balance; 
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482 lasLgain = gain_.net; 

483 } 

484 } 

485 // Mop up residuals 

486 if (lasLgain != gainjiet && (observations != (int)(sidefile_cntrl->no_records() / 100))) 

487 { float gr = (float)((double)(INT64)(gain_net-Iast_gain)/(double)(lNT64)((total-ba!ance)- 

488 lastbalance)); 

489 spent_graph[obs] = (float)(INT64)(total-balance); 

490 gain_y[obs] = gr; 

491 gain_y[++obs] = -1; 

492 //fprintf(fgraph, ,, %f,%nn n ,totaI-baIance J gr); 

493 } 

494 //fclose(fgraph); 

495 // 

496 // Output statistics from the run 

497 // 

498 cout « flush; 

499 cout « "#" « sidefilejcntrl->noj"ecords() « 7" « sidefile_cntrl->no_records() « ",0:0:0" « 

500 endl « flush « flush; 
501 

502 if (xmlfile->xmlstats) 

503 { cout « "Optimization processing completed" « endl; 

504 cout « "<« Global Statistics from run »>" « endl; 

505 int i; 

506 for(i = 0; i < campaign Jile->number; 

507 { if (campaign_file->camp_nos[i] > 0) 

508 { if (campaign _file->pieces[i] < campaign Jle~>min_pieces[i]) cout « "*"; 

509 cout « "Campaign " « campaign_file->camp_nos[i] « " Allocated " « campaignjile- 

510 >pieces[i] « " min=" « campaign Jile->min_pieces[i] « " max=" « campaign Jile->max_pieces[i] « " 

511 pieces" « endl; 

512 totaLspent += campaign Jile->pieces[i] * campaign Jile->costs[i]; 

513 totaLrecout += campaign Jile->pieces[i]; 

514 } 

515 } 

516 cout « "Overall cost incurred " « ((double)(INT64)totaLspent/100) « " against a budget of" « 

517 ((double)(INT64)total/100) « " balance is " « ((double)(lNT64)balance/100) « endl; 
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518 cout « "Estimated gross gain is " « ((double)(INT64)gain/100) « " Net gain is " « 

519 ((double)(INT64)gain_net/100) « endl; 

520 cout « "Estimated profit margin is " « 100 * ((double)(INT64)gain^net/(double)(INT64)gain) « 

521 "%"«endl; 
522 

523 

524 xmldoc *statsdoc = new xmldocfstats"); // Create document 

525 if (statsdoc) 

526 { char numbuf[60]; 

527 sprintf(numbuf/ , %.2f,((float)(INT64)total)/100); 
52 8 statsdoc->clog^off = TRU E; 

529 statsdoc->chg("\\stats\\description",xmlfiie->description); 

530 statsdoc->add("\\stats\\runid" 1 timestamp); 

531 statsdoc->add("\\stats\\projectid",xmlfi!e->projectid); 

532 statsdoc->add("\\stats\\budget",numbuf); 

533 > sprintf(numbuf,"%.2f > ((float)(iNT64)baiance)/100); 

534 statsdoc->add("\\stats\\balance",numbuf); 
535 

536 // Store Gains graph 

537 i = 0; 

538 char *buf = new char[sizeof("\\stats\\gaingraph@pnt=1000")]; 

539 do { sprintf(numbuf,"%.2f,%.2f ,spent_graph[i]/100.0,gain_y[i]); 

540 sprintf(buf, n \\stats\\gaingraph@pnt=%d",i+l); 

541 statsdoc->add(buf,numbuf); 

542 }while(gain_y[++i] !=-1); 
543 

544 sprintf(buf,"\\stats\\graph@pnts=%d" J i+1); 

545 statsdoc->add(buf,NULL); 
546 

547 delete [] buf; 
548 

549 for(i = 0, j = 1 ; i < campaign_fiie->number; i++) 

550 { if (campaignJile->campjnos[i] > 0) 

551 { char ev[sizeof("\\stats\\event@id=9999\\description")+3]; 

552 sprintf(numbuf;'%d",j); //DAS - Caryn can't take zero origin output 

553 statsdoc->addn\stats\\event@id",numbuf); 

554 sprintf(ev;'\\stats\\event@id=%d\\eventid"j); 
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555 sprintf(numbuf J "%d" J campaignJile->camp__nos[i]); 

556 statsdoc->add(ev,numbuf); 

557 sprintf(ev I "\\stats\\event@id=%d\\description" l j); 

558 statsdoc->add(ev,campaignJile->desc[i]); 

559 sprintf(ev; , \\stats\\event@id=%d\\minpieces ,, j); 

560 sprintf(numbuf, M %d", campaign Jile->min_pieces[i]); 

561 statsdoc->add(ev v numbuf); 

562 sprintf(ev, M \\stats\\event@id=%d\\maxpieces n j); 

563 sprintf(numbuf J n %d n ,campaign_file->max_pieces[i]); 

564 statsdoc->add(ev J numbuf); 

565 sprintf(ev; , \\stats\\event@id=%d\\alIocated"j); 

566 sprintf(numbuf,"%d n ,campajgn_file->pieces[i]); 

567 statsdoc->add(ev,numbuf); 

.568 sprintf(ev I ,, \\stats\\event@id=%d\\fcost M j); 

569 sprint^numbuf/'yo^f^floatJcampaignJIe^fcostspyiOO); 

570 statsdoc->add(ev,numbuf); 

571 sprintf(ev;'\\stats\\event@id=%d\\cost"j); 

572 sprint^numbuf/'yo^f^floatJcampaignJile^costspyiOO); 

573 statsdoc->add(ev,numbuf); 

574 sprintf(ev, M \\stats\\event@id=%d\\gain",j++); 

575 sprint^numbuf/'yo^f'^floatJcampaignJile^gaintiyiOO); 

576 statsdoc->add(ev J numbuf); 

577 } 

578 } 

579 sprintf(numbuf/ , %d , \j-1); 

580 statsdoc->add( n \\stats\\events@no n ,numbuf); 

581 char *s = new char[sjzeof( M stats.xml")+1]; 

582 strcpy(s, n stats.xmr); - 

583 statsdoc->setfilename(s); 

584 statsdoc->flush(); 

585 statsdoc->clog__off = FALSE; 

586 delete statsdoc; 

587 } 

588 } 

589 else { sidefile^cntrl->restart(); 

590 int totaLcontacts = 0; 

591 while(sidefile_cntrl->next_custno()) 7/ for each customer input 
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592 { int contact = 0; 

593 do { if (sidefiIe_cntrl->catno() < 0) contact = 1 ; } while(!sidefile_cntrl- 

594 >getnext_srt()); 

595 total_contacts += contact; 

596 } 

597 cout « "##{\"budget\ M : V" « ((float)(!NT64)total/1 00.0) « M \",\"balance\ n : V" « 

598 ((float)(INT64)balance/100) « "V.V'obsV : V" « obs « T,\"events\" : V" « campaign Jile->number « 

599 "\",\"contacts\" : V" « totaI_contacts « "YW'customersY' : V"' « sidefiie_cntrl->total_customers « T}"; 

600 for(i = 0; i < obs; i++) cout « ".{V'pointV : V" « spent_graph[i]/100.0 « V « 

601 gain_y[i] « T}"; 

602 for(i = 0; i < campaign_file->number; i++) 

603 if (campaign_file->camp_nos[i] > 0) 

604 { cout « H ,{\"event\" : \ ,,M « campaign_file->camp_nos[i] « "VW'descV : V ,M « 

605 campaign_file->desc[i] « T.V'mediacodeV : V" « campaign_fi!e->mediacde[i] « T"; 

606 cout « ".V'minpiecesV : V" « campaign_file->min_pieces[i] « T,\"maxpieces\" : V" « 

607 campaign_file->max_pieces[i] « T.V'allocatedV : V ,H « campaign_file->pieces[i] « T.V'fcostV : V" « 

608 campaign Jile->fcosts[i] « "V'.Vcostt" : V" « campaign_file->costs[i] « "V.V'gainV : V" « campaignjile- 

609 >gain[i] « T}"; 

610 totaLspent += campaign_file->pieces[i] * campaign_file->costs[i]; 

61 1 totaLrecout += campaignjile->pieces[i]; 

612 } 

613 cout « endl; 

614 // cout « "]\n" « endl; 

615 } 

616 #if DBVER 

617 // Write stats to database if required 

618 if (xmlfile->runstats_db_name) 

619 { // Additionally insert into a couple of database tables 

620 out_data = new DBobjCxmlfile^runstats.db.name^mlfile^runstats.dbjserid, xmlfile- 

621 >runstats_db_passwd,xmlfile->runstats - dbjable1 , NULL, NULL, xmlfile->runstats_fields1 ,2,xmlfile- 

622 >runstats_defn); 

623 if (ouLdata) { outdata->setbuffer(1 ); 

624 if (out_data->prepare()) 

625 { out_data->setrecs(1 ); 

626 field *f = xmlfile->runstats_fields1 ; 

627 out_data->setString("runid" I timestamp); 

628 if (xmlfile->description) ouLdata->setString( H description H ,xmlfile->description); 
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629 ouLdata->setString( ,, projectid M ,xmlfile->projectid); 

630 ouLdata->setFloat( ,, budget M ,(float)(INT64)total/100); 

63 1 ouLdata->setFloat("baiance",(f[oat)(INT64)ba[ance/1 00); 

632 ouLdata->setlnt("points",obs); 

633 out_data->setVect( M gaingraphx",spent_graph); 

634 ouLdata->setVect("gaingraphy",gain_y); 

635 out_data->setlnt("events",campaign_file->number); 

636 out_data->writenext(); 

637 delete out_data; 

638 out_data = new DBobj(xmlfile->runstats_db_name J xmifile->runstats_db_userid, 

639 xmlfile->runstats_db_passwd,xmlfile->runstats_dbJab!e2 ) NULL J NULL J xmlfile->run 

640 >runstats_defn); 

641 if (out_data) { out_data->setbuffer(j); 

642 if (out_data->prepare()) 

643 { ouLdata->setrecs(j); 

644 field *f = xmlfile->runstats_fields2; . 

645 for(i = 0; i < campaign__file->number; i++) 

646 { if (campaign Jle->camp_nos[i] > 0) // Handle overrides 

647 { out_data->setString("runid ,, ,timestamp); 

648 ouLdata->setlnt("eventid",campaignJile->camp_nos[i]); 

649 ouLdata->setString("description", campaign Jle->desc[i]); 

650 out_data->setlnt("minpiece",campaign_file->min_pieces[i]); 

651 out_data->setlnt("maxpiece",campaign_file->max_pieces[i]); 

652 out_data->setlnt("aIloc" I campaign„file~>pieces[i]); 

653 ouLdata->setFloat( n cost",(float)campaignJile->costs[i]/100); 

654 out_data->setFloat("fcost n ,(float)campaign_fiie->fcosts[i]/100); 

655 out_data->setFloat( n gain",(float)campaign_file->gain[i]/100); 

656 out_data->writenext(); 

657 } 

658 } 

659 } 

660 delete out_data; 

661 } 

662 } 

663 } 
664 

665 } 
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ODD 


#endif 




00/ 


// 6) Generate output file 


HCO 

000 


#if DBVER 




HHC\ 

ooy 


if (xmifile- 


>output_db_name) out_data = new DBobj(xmlfile->outpuLdb_name, xmlfile- 


o /U 


>output_db_userid, xmlfile->output_db_passwd,xmlfi[e->outpuLdbJable, xmlfile- 


671 


^utpuLdb.where.NULL^mlfile^outputJields^.xmlfile^outpuLdefn); 


0 11 


else 




0 / J 


#endif 




0 /4 


if (xmlfile- 


■>outpuLdataFi!e) out_data = new fileobj(xmlfile->output_dataFile,xmlfile- 


0 / J 


>output_fieIds J 0,xrnlfile->output__defn); 


H.HH 
0/0 






0 / / 


if (ouLdata) { // Simply run thru the sidefile from top to bottom and output selected campaigns 


o/o 




if/mit data-^nrpnarpO^ 


o /y 




{ II Return can happen because of failure or Suppress, complete run anyway. 


OoU 




nut Hata->c;ptrpc^( total rpcoutV 


/-Ol 
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ciiHpfilp rntrl-^rp^tartn* 

O 1 VJ PI 1 1 P vl 1 LI 1 ICO LCI 1 iy y j 


/COO 

ooz 




fiplH *f = ymlfilp->ni itni it fipIH^* 

IICIU 1 Al 1 IIIIIC ^UUl[JUl IIPIUO| 
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int bvect = FALSE* 

MIL U V CvL 1 r\LUL, 
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// Pherk tn Qfap if thic; ic; thp hnnlpan nntniit c;t\/lp 

// wllCOI\ IU OCC II LI llo lo LIIC UUUICal 1 UUl|JUl OlylG 


HOC 

685 




while(f) { it (f->type — b && T->repeat) 


HO H 

686 




{ bvect = TRUE; 


Hon 

687 




f->val.str = new char[f->repeat*2]; 


000 




memset(f->val.str,' \f->repeat*2); 


OoV 




} 


OVU 




f = f->next; 


oy i 




} 
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while(sidefile_cntrl->next_custno()) // for each customer input 


6y4 




{ //for(int i = 0; i < campaign_file->number; 


H.CiC 

oyj 




// { if (bvect) // This was the original debug method, output a series of 0 and 


696 




// { ouLdata->setBoolean( n rvect",i,sidefile„cntrl->catnojnc() < 0); 


697 




// if (i == (campaign_file->number-1)) ouLdata->writenext(); 


698 




// } . 


699 




// else 


700 




do { if (sidefi!e_cntrl->catno() < 0) 


701 




{ // out_data->setString("projectid ,, ,xmlfile->projectid); 


702 




// ouLdata->setString("rundate",timestamp); 
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703 ouLdata->setString( M custid",sidefile_cntrl->geLcustno()); 

704 ouLdata->setInt( u eventid" 1 campaignJile->camp_nos[(-sidefile_cntrI- 

705 >catno())-1]); 

706 if (ouLdata->writenext()) break; // Drop out if failure 

707 } 

708 } while(!sidefile_cntrl->getnexLsrt()); 

709 } 

710 // if (bvect) while(f) { if (f->type == 'b' && f->repeat) delete [] f->val.str; 

711 // f = f->next; 

712 // } 

713 } 

714 } 

715 } 

716 else cout « "Error: Minimum cost of campaigns exceeds imposed global budget" « endl; 
717 

718 xmlfile->add("\\project\\runid' , J timestamp); // Put the run id into the parms file 

719 xmlfile->changestate(2 s modis,version,(long)difftime(time(NULL),now)); // Project in completed state 

720 (Useful to know runtime for reference) 
721 

722 delete campaign_file; 

723 delete sidefile_cntrl; 

724 delete satjile; 

725 delete out„data; 
726 

727 if (Ihush) 

728 { time( &now ); 

729 when = *loca!time( &now ); 

730 cout « "Finish run at " « asctime( &when ) « endl; 
731. } 

732 

733 return 0; 

734 } 
735 

736 static void sig_end(int signo) 

737 { 

738 struct tm when; 

739 timej now; 
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740 

741 switch(signo) { 

742 case SIGINT: cerr « "Interrupt Signal received" « end!; break; 

743 case S1GTERM: cerr « "Terminate Signal received" « endl; break; 

744 #ifdefAIX 

745 case SIGQUIT: cerr « "Quit Signal received" « endl; break; 

746 case SIGIOT: cerr « "I/O Terminate Signal received" « endl; break; 

747 case SIGBUS: cerr « "Bus error Signal received" « endl; break; 

748 case SIGSEGV: cerr « "Segmentation fault Signal received" « endl; break; 

749 #ifdef SIGDANGER 

750 case SIGDANGER: cerr « "Danger Signal received, machine low on resource" « endl; break 

751 #endif 

752 #endif 

753 default: cerr « "Unknown signal caught no=%d" « signo « endl; 

754 } 
755 

756 cout « endl « "ERROR: Forced run abort" « endl; 

757 time( &now ); 

758 when = *localtime( &now ); 

759 cout « "Finish run at " « asctime( &when ) « endl; 
760 

761 delete xmlfile; 

762 exit(-16708); 

763 } 
764 

765 char *make_tname(char *tempdir) 

766 { 

767 struct stat stbuf; 

768 char temp_name[] = {"VQtmpOOO"}; 

769 char *tempfile = tempjname; 

770 int name_cnt = 1 , handle = -1 ,append; 
771 

772 // Sort out temporary directory name 

773 if (tempdir) { // Do we need to append a / or \ ? 

774 append = strlen(tempdir); 

775 if (tempdir[append-1] — V || tempdir[append-1] == '\Y) append = 1; 

776 else append = 2; 
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777 } 

778 tempfile = (tempdir) ? new char[append+strlen(tempdir)+strlen(temp_name)] : 

779 new char[1 +strlen(temp_name)]; 

780 // Locate a free slot 

781 while(handle == -1 && name_cnt < 999) 

782 { if (tempdir) { strcpy(tempfile.tempdir); 

783 #ifdefAIX 

784 if (append == 2) strcat(tempfile,T); 

785 #else 

786 if (append == 2) strcat(tempfile,"\\ u ); 

787 #endif 

788 strcat(tempfile,tempjiame); 

789 } 

790 else strcpy(tempfile,temp_name); 

791 handle = stat(tempfile, &stbuf); 

792 if (handle ==-1) break; 

793 else { if (temp_name[7] == '9') 

794 { temp_name[7] = '0'; 

795 if (tempjname[6] == '9') 

796 { temp_name[6] = '0'; 

797 if (temp_name[5] == '9') temp_name[5] = '0'; 

798 else ++temp_name[5]; 

799 } 

800 else ++temp_name[6]; 

801 } 

802 else ++temp_name[7]; 

803 } 

804 ++name_cnt; handle = -1 ; 

805 } 
806 

807 if (name_cnt — 999) { cerr « "Error: Cannot find free temporary name\nPlease delete FStmpnnn files" 

808 « endl; 

809 return NULL; 

810 } 

811 return tempfile; 

812 } 
813 
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814 #ifdef TIMEBOMB 

815 inttimeBomb(void) 

816 { 

817 time J: endtime ; /* time of expiry */ 

818 struct tm endtm ; /* time of expiry structure */ 

819 endtm.tm_sec = 0; 

820 endtm.tm_min = 0; 

821 endtm.tmjiour = 0; 

822 endtm.tm_mday =01 ; /* date at which it first becomes invalid*/ 

823 endtm.tmjrion = 10; /* note - zero origin, Jan = 0 !!! */ 

824 endtm.tm_year = 99; /* about six months hence 7 

825 endtm.tm_wday = 0; 

826 endtm.tm_yday = 0; 

827 endtm.tmjsdst = 0; 

828 return (int)(time(NULL) < mktime(&endtm)); 

829 } /* end timeBomb */ 

830 #endif 
831 

832 #ifdef MACHONLY 

833 int mach(void) 

834 { /* Test to see if on specified network */ 

835 FILE *machchk; 

836 char c; 
837 

838 machchk = popenfhostname 1 xargs host | grep -c ' 10.'", V); 

839 fread(&c, 1,1, machchk); /* get results of command */ 

840 pclose(machchk); /* Close pipe */ 
841 

842 return (int) (c != '0'); /* 1 =OK 0= non licenced network */ 

843 } 

844 #endif 
845 

846 char *timemod(char *time) 

847 { 

848 static char buf[30]; 
849 

850 strcpy(buf,time); 
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851 char*t = strchr(buf,'\n'); 

852 if (t) *t = '\0'; 
853 

854 return buf; 

855 } 
856 
857 



